home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00016.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  1.7 KB  |  83 lines
  1. on exitFrame
  2.   global GRIDH, NB, NBB, GRIDY, GRIDN, DT, TURN, PUSHON, NYC, PUSHED, STARTED, NWGAME, SOND, BLUESCORE, REDSCORE, GAMELEN, OVE
  3.   set HELP to 0
  4.   set OVE to 0
  5.   if (BLUESCORE >= GAMELEN) or (REDSCORE >= GAMELEN) then
  6.     set OVE to 1
  7.   end if
  8.   if OVE = 1 then
  9.     REMCART()
  10.     REMOVESPRITE()
  11.     updateStage()
  12.     if SOND = 0 then
  13.       puppetSound("FANFARE")
  14.     end if
  15.   end if
  16.   if (OVE = 1) and (BLUESCORE > REDSCORE) then
  17.     go("BWON")
  18.   end if
  19.   if (OVE = 1) and (REDSCORE > BLUESCORE) then
  20.     go("RWON")
  21.   end if
  22.   if (OVE = 1) and (BLUESCORE = REDSCORE) then
  23.     go("TIED")
  24.   end if
  25.   if STARTED = 0 then
  26.     WAITFORROW()
  27.   end if
  28.   if PUSHON = 0 then
  29.     SETUPPUSHERS()
  30.   end if
  31.   if NWGAME = 1 then
  32.     set PUSHED to 1
  33.   end if
  34.   if PUSHED = 1 then
  35.     RESETALLMEN()
  36.   end if
  37.   if PUSHED = 1 then
  38.     WAITFORROW()
  39.   end if
  40.   set NYC to random(80)
  41.   set NWGAME to 0
  42.   if NYC < 4 then
  43.     DOHAMMER()
  44.   end if
  45.   if (NYC = 32) or (NYC = 33) then
  46.     DOHAMMERRED()
  47.   end if
  48.   if NYC = 63 then
  49.     DOSITDOWNBLUE()
  50.   end if
  51.   if NYC = 77 then
  52.     DOSITDOWNRED()
  53.   end if
  54.   if NYC = 55 then
  55.     BLUEWAVE()
  56.   end if
  57.   if NYC = 42 then
  58.     REDWAVE()
  59.   end if
  60.   if NYC = 28 then
  61.     BLUELEAN()
  62.   end if
  63.   if NYC = 18 then
  64.     REDLEAN()
  65.   end if
  66.   set the castNum of sprite 10 to 12
  67.   set the castNum of sprite 29 to 4
  68.   if OVE = 0 then
  69.     repeat with N = 1 to 140
  70.       if getAt(GRIDV, N) = 1 then
  71.         set the locH of sprite 30 to getAt(GRIDH, N)
  72.         set the locV of sprite 30 to getAt(GRIDY, N)
  73.         updateStage()
  74.       end if
  75.     end repeat
  76.   end if
  77.   set the locH of sprite 30 to -50
  78.   set the locV of sprite 30 to -50
  79.   updateStage()
  80.   set the keyDownScript to EMPTY
  81.   go(the frame)
  82. end
  83.